COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	
C00010 00003	(DEFPROP INIT1
C00012 ENDMK
C⊗;

(LAP SWAP SUBR) 
	NIL 

(SETQ &IDTYPE    0)
(SETQ &STRTYPE   1)
(SETQ &NUMTYPE   2)
(SETQ &DELIMTYPE 3)
(SETQ &X& (SETQ &Y& NIL))


(MAPCAR (FUNCTION
	 (LAMBDA (&X)
	  (PROG2 (PUTPROP (CAR &X) &IDTYPE (QUOTE &TRANSTYPE))
		 (PUTPROP (CAR &X) (CADR &X) (QUOTE &TRANS)))))
	(QUOTE ((/* TIMES) (// QUOTIENT) (/+ PLUS) (/- DIFFERENCE)
		(/↑ PRELIST) (/↓ SUFLIST) (/@ APPEND)
		(/= EQUAL) (/≠ NEQUAL) (/≤ LEQUAL) (/≥ GEQUAL) (/ε MEMBER)
		(/& AND) (/∧ AND) (/| OR) (/∨ OR) (/¬ NOT))))


(MAPCAR (FUNCTION
	 (LAMBDA (&X)
	  (PROG NIL
		(MAPCAR (FUNCTION
			 (LAMBDA (&Y)
			  (PROG NIL
				(AND (EQ (CAR &X) (QUOTE &PREFIX))
				     (PUTPROP &Y 1000. (QUOTE &RIGHT))
				     (PUTPROP &Y -1 (QUOTE &LEFT)))
				(AND (EQ (CAR &X) (QUOTE &RESWORD))
				     (PUTPROP &Y -1. (QUOTE &LEFT)))
				(AND (EQ (CAR &X) (QUOTE &DELIM))
				     (PUTPROP &Y -1. (QUOTE &LEFT)))
				(PUTPROP &Y T (CAR &X)))))
			(CDR &X)))))
	(QUOTE ((&RESWORD BEGIN END NEW SPECIAL IF THEN ELSE ALSO
		  FOR IN ON TO BY DO COLLECT UNTIL WHILE
		  EXPR FEXPR LEXPR MACRO LAMBDA DEFINE COMMENT INLINE OCTAL)
		(&DELIM /( /) /< /> /[ /] /; /, /. /' /⊗)
                (&FNTYPE EXPR FEXPR LEXPR MACRO)
		(&ASSOC TIMES PLUS AND OR)
		(&SPECIAL QT LPAR RPAR LABR RABR LSBR RSBR DASH STAR PLUSS SLASH
		  BLANK COLON COMMA PERIOD DOLLAR EQSIGN LARROW DBQUOTE PERCENT
		  CIRCLEX UNDERBAR SEMICOLON TAB LF VT FF CR ALTMODE TRUE FALSE F)
		(&PREFIX STR STRP STRLEN AT PRINTSTR DIFFERENCE
		  CAR CDR
		  CAAR CADR CDAR CDDR
		  CAAAR CAADR CADAR CDAAR CADDR CDADR CDDAR CDDDR
		  CAAAAR CAAADR CAADAR CADAAR CDAAAR CAADDR CADADR CDAADR
		  CADDAR CDADAR CDDAAR CADDDR CDADDR CDDADR CDDDAR CDDDDR
		  ABS ADD1 ARG ASCII ATOM BAKGAG CSYM DDTIN DDTOUT ED ERR EVAL *EVAL
		  EXAMINE EXPLODE EXPLODEC FIX FLATSIZE FUNCTION *FUNCTION GCGAG
		  *GETSYM GO INITFN INTERN LAST LENGTH LINELENGTH MAKNAM MINUS
		  MINUSP NCONS NOT NOUUO NULL NUMBERP NUMVAL PLUS PRINC PRINT PRIN1
		  QUOTE READLIST RETURN REVERSE *RSET SUB1 TERPRI TYO ZEROP))))


(MAPCAR (FUNCTION
	 (LAMBDA (&X)
	  (MAPCAR (FUNCTION
		   (LAMBDA (&Y)
		    (PROG2 (PUTPROP &Y (CADDR &X) (QUOTE &RIGHT))
			   (PUTPROP &Y (CADR &X) (QUOTE &LEFT)))))
		  (CAR &X))))
	(QUOTE (((/← SETQ STORE) 1001. 0.)
		((TIMES *TIMES QUOTIENT *QUO) 700. 750.)
		((PLUS *PLUS DIFFERENCE *DIF) 600. 650.)
		((&DEFAULT) 500. 550.)
		((APPEND *APPEND NCONC CONS XCONS CAT) 450. 400.)
		((EQ NEQ EQUAL NEQUAL LESSP *LESS LEQUAL GREATERP *GREAT GEQUAL
			MEMBER MEMQ) 300. 350.)
		((AND) 200. 250.)
		((OR) 100. 150.))))
(DEFPROP INIT1
 (LAMBDA NIL
  (PROG NIL
        (SETQ SCNVAL NIL)
        (*PUTSYM (QUOTE SCNVAL) (GET (QUOTE SCNVAL) (QUOTE VALUE)))
        (LOAD T)))
EXPR)

(DEFPROP INIT2
 (LAMBDA NIL
  (PROG NIL
        (GETSYM SUBR SCAN SCANINIT SCANSET SCANRESET LETTER IGNORE UNTYI SREAD)
        (SCANINIT 45 45 42 42 77)
	(LETTER 30)
        (LETTER 72)
        (LETTER 41)
        (IGNORE 11)
        (IGNORE 12)
        (IGNORE 13)
        (IGNORE 14)
	(IGNORE 15)
        (IGNORE 40)
        (IGNORE 175)
	(SETQ BASE (SETQ IBASE 10.))
	(REMPROP (QUOTE LAP) (QUOTE MACRO))
	(REMOB RUNFN1 RUNFN2 MINIT SETQS MACROS MACRO1 COMPLR INIT1 INIT2)
	(INITFN (QUOTE MEVAL))))
EXPR)